|
1000
|
It is possible to clip the bar's caption to bar, when the time scale is changed
Dim h
With Exg2antt1
.Columns.Add("Task")
With .Chart
.set_PaneWidth(False,48)
.FirstVisibleDate = #12/27/2000#
With .Bars.Item("Task")
.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBox
.Height = 13
End With
End With
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K1","This is a bit of text that get's clipped")
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,4)
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip,.get_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption))
h = .AddItem("Task 2")
.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K1","This is a bit of text that is not clipped")
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,1)
End With
End With
|
|
999
|
How can I change the color for all bars with the key matching a pattern
Dim h
With Exg2antt1
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.set_PaneWidth(False,64)
.Debug = True
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"A")
.AddBar(h,"Task",#1/5/2001#,#1/7/2001#,"B1")
.AddBar(h,"Task",#1/8/2001#,#1/17/2001#,"B2")
.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K3")
.AddBar(.AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"B4")
.set_ItemBar(0,"<B*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,255)
End With
End With
|
|
998
|
How can I change the color for all bars in the same item with the key matching a pattern
Dim h
With Exg2antt1
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.set_PaneWidth(False,64)
.Debug = True
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"A")
.AddBar(h,"Task",#1/5/2001#,#1/7/2001#,"B1")
.AddBar(h,"Task",#1/8/2001#,#1/17/2001#,"B2")
.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K3")
.AddBar(.AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K4")
.set_ItemBar(h,"<B*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,255)
End With
End With
|
|
997
|
How can I change the color for all bars in the same item
Dim h
With Exg2antt1
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K1")
.AddBar(h,"Task",#1/5/2001#,#1/7/2001#,"K2")
.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K3")
.AddBar(.AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K4")
.set_ItemBar(h,"<*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,255)
End With
End With
|
|
996
|
How can I write a special number for each date related to a bar
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,32)
.LevelCount = 2
End With
With .Items
h = .AddItem("Task")
.AddBar(h,"Task",#1/2/2001#,#1/13/2001#,"1")
End With
With .Chart.Notes
With .Add("N1",Exg2antt1.Items.FirstVisibleItem,"1","")
.RelativePosition = "S+2"
.set_PartText(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,"4")
.set_PartFixedWidth(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,18)
.set_PartHOffset(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,-9)
.set_PartBackColor(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,Color.FromArgb(255,255,0))
.ShowLink = exontrol.EXG2ANTTLib.NoteLinkTypeEnum.exNoteLinkHidden
.set_PartVisible(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,True)
End With
With .Add("N2",Exg2antt1.Items.FirstVisibleItem,"1","")
.RelativePosition = "S+3"
.set_PartText(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,"4")
.set_PartFixedWidth(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,18)
.set_PartHOffset(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,-9)
.set_PartBackColor(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,Color.FromArgb(255,255,0))
.ShowLink = exontrol.EXG2ANTTLib.NoteLinkTypeEnum.exNoteLinkHidden
.set_PartVisible(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,True)
End With
With .Add("N3",Exg2antt1.Items.FirstVisibleItem,"1","")
.RelativePosition = "S+4"
.set_PartText(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,"5")
.set_PartFixedWidth(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,18)
.set_PartHOffset(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,-9)
.set_PartBackColor(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,Color.FromArgb(0,255,0))
.ShowLink = exontrol.EXG2ANTTLib.NoteLinkTypeEnum.exNoteLinkHidden
.set_PartVisible(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,True)
End With
With .Add("N4",Exg2antt1.Items.FirstVisibleItem,"1","")
.RelativePosition = "S+5"
.set_PartText(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,"5")
.set_PartFixedWidth(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,18)
.set_PartHOffset(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,-9)
.set_PartBackColor(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,Color.FromArgb(0,255,0))
.ShowLink = exontrol.EXG2ANTTLib.NoteLinkTypeEnum.exNoteLinkHidden
.set_PartVisible(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,True)
End With
With .Add("N5",Exg2antt1.Items.FirstVisibleItem,"1","")
.RelativePosition = "S+6"
.set_PartText(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,"8")
.set_PartFixedWidth(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,18)
.set_PartHOffset(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,-9)
.set_PartBackColor(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,Color.FromArgb(255,0,0))
.ShowLink = exontrol.EXG2ANTTLib.NoteLinkTypeEnum.exNoteLinkHidden
.set_PartVisible(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,True)
End With
With .Add("Z",Exg2antt1.Items.FirstVisibleItem,"1","")
.RelativePosition = "E"
.set_PartText(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,"4")
.set_PartFixedWidth(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,18)
.set_PartHOffset(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,-9)
.set_PartBackColor(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,Color.FromArgb(255,128,0))
.set_PartCanMove(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,True)
.ShowLink = exontrol.EXG2ANTTLib.NoteLinkTypeEnum.exNoteLinkHidden
.set_PartVisible(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,True)
End With
End With
.EndUpdate()
End With
|
|
995
|
How can I assign a note to be always in the center of the bar
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.set_PaneWidth(False,96)
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/5/2001#,#1/8/2001#,"1")
End With
With .Chart.Notes
With .Add("Note",Exg2antt1.Items.FirstVisibleItem,"1","")
.RelativePosition = 0.5
.set_PartText(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,"note<br>center")
.set_PartBackColor(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,Color.FromArgb(255,255,0))
.set_PartVisible(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,False)
.ShowLink = exontrol.EXG2ANTTLib.NoteLinkTypeEnum.exNoteLinkHidden
End With
End With
.EndUpdate()
End With
|
|
994
|
How can I assign a note relative to the start of the bar, and let it be movable
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.set_PaneWidth(False,96)
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/5/2001#,#1/8/2001#,"1")
End With
With .Chart.Notes
With .Add("Note",Exg2antt1.Items.FirstVisibleItem,"1","")
.RelativePosition = "S+1"
.set_PartText(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,"<%d%>")
.set_PartFixedWidth(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,18)
.set_PartHOffset(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,9)
.set_PartCanMove(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,True)
.set_PartBackColor(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,Color.FromArgb(255,255,0))
.set_PartVisible(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,False)
.ShowLink = exontrol.EXG2ANTTLib.NoteLinkTypeEnum.exNoteLinkHidden
End With
End With
.EndUpdate()
End With
|
|
993
|
How can I associate a note relative to the start of the bar
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.set_PaneWidth(False,96)
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/5/2001#,#1/8/2001#,"1")
End With
With .Chart.Notes
With .Add("Note",Exg2antt1.Items.FirstVisibleItem,"1","")
.RelativePosition = "S+1"
.set_PartText(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,"<%d%>")
.set_PartFixedWidth(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,18)
.set_PartHOffset(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,9)
.set_PartBackColor(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,Color.FromArgb(255,255,0))
.set_PartVisible(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,False)
.ShowLink = exontrol.EXG2ANTTLib.NoteLinkTypeEnum.exNoteLinkHidden
End With
End With
.EndUpdate()
End With
|
|
992
|
How can I associate a note relative to the end of the bar, so if the bar is resized at the end, the not is moved accordingly
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.set_PaneWidth(False,96)
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/5/2001#,#1/8/2001#,"1")
End With
With .Chart.Notes
With .Add("Note",Exg2antt1.Items.FirstVisibleItem,"1","")
.RelativePosition = "E-1"
.set_PartText(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,"<%d%>")
.set_PartFixedWidth(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,18)
.set_PartHOffset(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,9)
.set_PartVisible(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,False)
.ShowLink = exontrol.EXG2ANTTLib.NoteLinkTypeEnum.exNoteLinkHidden
End With
End With
.EndUpdate()
End With
|
|
991
|
How can I associate a note relative to the end of the bar, so if the bar is resized at the end, the not is moved accordingly
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.set_PaneWidth(False,96)
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/5/2001#,#1/8/2001#,"1")
End With
With .Chart.Notes
With .Add("Note",Exg2antt1.Items.FirstVisibleItem,"1","")
.RelativePosition = 1
.set_PartText(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,"End")
.set_PartVisible(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,False)
.ShowLink = exontrol.EXG2ANTTLib.NoteLinkTypeEnum.exNoteLinkHidden
End With
End With
.EndUpdate()
End With
|
|
990
|
How can I hide a bar without removing it
With Exg2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,128)
.LevelCount = 2
End With
.HeaderVisible = exontrol.EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#,"B1")
.AddBar(.AddItem("Item 2"),"Task",#1/6/2001#,#1/14/2001#,"B2")
.AddLink("L1",.get_FindItem("Item 1",0),"B1",.get_FindItem("Item 2",0),"B2")
.set_ItemBar(.FirstVisibleItem,.get_FirstItemBar(.FirstVisibleItem),exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarTransparent,100)
End With
.EndUpdate()
End With
|
|
989
|
How can I align the caption in the note
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.set_PaneWidth(False,96)
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/5/2001#,#1/8/2001#,"1")
End With
With .Chart.Notes
With .Add("N1",Exg2antt1.Items.FirstVisibleItem,"1","")
.ShowLink = exontrol.EXG2ANTTLib.NoteLinkTypeEnum.exNoteLinkHidden
.set_PartVisible(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,False)
.set_PartText(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,"S <b><%dd%></b>")
.set_PartFixedWidth(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,48)
.set_PartAlignment(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,exontrol.EXG2ANTTLib.AlignmentEnum.LeftAlignment)
.set_PartVOffset(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,17)
End With
With .Add("N2",Exg2antt1.Items.FirstVisibleItem,"1","")
.RelativePosition = 1
.ShowLink = exontrol.EXG2ANTTLib.NoteLinkTypeEnum.exNoteLinkHidden
.set_PartVisible(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,False)
.set_PartText(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,"E <b><%dd%></b>")
.set_PartFixedWidth(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,48)
.set_PartAlignment(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,exontrol.EXG2ANTTLib.AlignmentEnum.RightAlignment)
.set_PartVOffset(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,17)
End With
End With
.EndUpdate()
End With
|
|
988
|
How I can assign a note and let user move the note relative to the bar
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.set_PaneWidth(False,96)
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/5/2001#,#1/8/2001#,"1")
End With
With .Chart.Notes
With .Add("Note",Exg2antt1.Items.FirstVisibleItem,"1","End")
.set_PartText(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,"Day<br> <%dd%>")
.set_PartCanMove(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,True)
.set_PartVOffset(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,16)
.set_PartTransparency(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,30)
.set_PartToolTip(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,"Click the note and start moving to a new position.")
End With
End With
.EndUpdate()
End With
|
|
987
|
How can I assign a picture as a note associated with a bar
Dim h
With Exg2antt1
.BeginUpdate()
.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
.set_HTMLPicture("pic2","c:\exontrol\images\auction.gif")
.AntiAliasing = True
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.set_PaneWidth(False,96)
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/5/2001#,#1/8/2001#,"1")
h = .AddItem("Task 2")
.AddBar(h,"Task",#1/7/2001#,#1/11/2001#,"2")
End With
With .Chart.Notes
With .Add("1",Exg2antt1.Items.get_ItemByIndex(0),"1","<img>pic1</img>")
.set_PartShadow(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,False)
.set_PartBorderSize(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,0)
.ClearPartBackColor(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd)
.set_PartHOffset(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,-64)
.set_PartCanMove(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,True)
End With
With .Add("2",Exg2antt1.Items.get_ItemByIndex(1),"2","<img>pic2</img>")
.set_PartShadow(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,False)
.set_PartBorderSize(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,0)
.ClearPartBackColor(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd)
.RelativePosition = 1
.set_PartCanMove(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,True)
.LinkColor = Color.FromArgb(255,0,0)
.LinkWidth = 2
.LinkStyle = exontrol.EXG2ANTTLib.LinkStyleEnum.exLinkDot
.ShowLink = exontrol.EXG2ANTTLib.NoteLinkTypeEnum.exNoteLinkVisible
End With
End With
.EndUpdate()
End With
|
|
986
|
How can I assign a picture as a note associated with a bar
Dim h
With Exg2antt1
.BeginUpdate()
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.AntiAliasing = True
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.set_PaneWidth(False,96)
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/5/2001#,#1/8/2001#,"1")
h = .AddItem("Task 2")
.AddBar(h,"Task",#1/7/2001#,#1/11/2001#,"2")
End With
With .Chart.Notes
With .Add("1",Exg2antt1.Items.get_ItemByIndex(0),"1","<img>1</img>")
.set_PartShadow(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,False)
.set_PartBorderSize(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,0)
.ClearPartBackColor(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd)
End With
With .Add("2",Exg2antt1.Items.get_ItemByIndex(1),"2","<img>2</img>...<img>3</img>")
.set_PartShadow(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,False)
.set_PartBorderSize(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,0)
.ClearPartBackColor(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd)
.RelativePosition = 1
.set_PartCanMove(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,True)
.LinkColor = Color.FromArgb(255,0,0)
.LinkWidth = 2
.LinkStyle = exontrol.EXG2ANTTLib.LinkStyleEnum.exLinkDot
End With
End With
.EndUpdate()
End With
|
|
985
|
How can I put a box assigned to a DATE
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.set_PaneWidth(False,96)
With .Items
h = .AddItem("Item 1")
h = .AddItem("Item 2")
End With
With .Chart.Notes
With .Add("D1",Exg2antt1.Items.FirstVisibleItem,Exg2antt1.Chart.FirstVisibleDate,"Date:<br><%dd%>/<%mm%><br><b><%yyyy%></b>")
.set_PartCanMove(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,True)
.set_PartVOffset(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,20)
.set_PartHOffset(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,20)
End With
With .Add("D2",Exg2antt1.Items.get_NextVisibleItem(Exg2antt1.Items.FirstVisibleItem),#1/7/2001#,"Date:<br><%dd%>/<%mm%><br><b><%yyyy%></b>")
.set_PartVisible(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,True)
.set_PartText(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,"<b><%d%></b>")
.set_PartCanMove(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,True)
.set_PartVOffset(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,20)
.set_PartHOffset(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,20)
End With
End With
.EndUpdate()
End With
|
|
984
|
How can I add a note or a box associated with a bar
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.set_PaneWidth(False,96)
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/5/2001#,#1/8/2001#,"1","Center")
.set_ItemBar(h,"1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption,"left")
.set_ItemBar(h,"1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign,16)
h = .AddItem("Task 2")
.AddBar(h,"Task",#1/7/2001#,#1/11/2001#,"2","Center")
.set_ItemBar(h,"2",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption,"right")
.set_ItemBar(h,"2",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign,18)
End With
With .Chart.Notes
.Add("1S",Exg2antt1.Items.FirstVisibleItem,"1","Start")
.Add("1F",Exg2antt1.Items.FirstVisibleItem,"1","End").RelativePosition = 1
End With
.EndUpdate()
End With
|
|
983
|
Is it possible to define different working hours for every week day
Dim h
With Exg2antt1
.BeginUpdate()
With .Chart
.set_PaneWidth(False,14)
.NonworkingDays = 0
.NonworkingHours = 0
.FirstVisibleDate = #1/1/2001#
.LevelCount = 2
With .get_Level(0)
.Alignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
.Label = "<%dddd%>"
End With
With .get_Level(1)
.Label = "<%hh%>"
.Count = 6
End With
.UnitWidth = 16
End With
.Columns.Add("")
With .Items
h = .AddItem(1)
.set_ItemNonworkingUnits(h,False,"weekday(value) != 1 or (weekday(value) = 1 and not ( hour(value) >= 9 and hour(value) <= 14 ))")
h = .AddItem(2)
.set_ItemNonworkingUnits(h,False,"weekday(value) = 2 and ( hour(value) >= 9 and hour(value) <= 14 )")
h = .AddItem(3)
.set_ItemNonworkingUnits(h,False,"weekday(value) = 3")
End With
.EndUpdate()
End With
|
|
982
|
How can I automatically update the exBarPercent value using a slider control
Dim i
With Exg2antt1
.BeginUpdate()
.Items.AllowCellValueToItemBar = True
With .Chart
.FirstVisibleDate = #1/1/2002#
.set_PaneWidth(False,128)
.Bars.Add("Task%Progress").Shortcut = "Percent"
End With
With .Columns.Add("Percent")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty,518)
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey,"P")
End With
With .Items
i = .AddItem(0)
.set_CellBold(i,0,True)
.get_CellEditor(i,0).EditType = exontrol.EXG2ANTTLib.EditTypeEnum.SliderType
.AddBar(i,"Percent",#1/2/2002#,#1/6/2002#,"P")
.set_ItemBar(i,"P",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarShowPercentCaption,True)
.set_CellValue(i,0,50)
End With
.EndUpdate()
End With
|
|
981
|
Is there any automatic way to change a property for all bars in the chart
With Exg2antt1
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
With .Items
.AddBar(.AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"K1")
.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K2")
.AddBar(.AddItem("Task 3"),"Task",#1/2/2001#,#1/4/2001#,"K3")
.AddBar(.AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K4")
.set_ItemBar(0,"<*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,255)
End With
End With
|
|
980
|
How can I assign an icon to a bar and I get notified when I click it
Dim h
With Exg2antt1
.BeginUpdate()
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.set_PaneWidth(False,96)
With .Items
h = .AddItem("Task")
.AddBar(h,"Task",#1/5/2001#,#1/10/2001#,"","Caption")
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption,"<a1><img>1:8</img></a><a1><img>2</img></a>")
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign,16)
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHOffset,5)
End With
.EndUpdate()
End With
|
|
979
|
How can I assign an icon to a bar so I do not break its caption
Dim h
With Exg2antt1
.BeginUpdate()
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.set_PaneWidth(False,96)
With .Items
h = .AddItem("Task")
.AddBar(h,"Task",#1/5/2001#,#1/10/2001#,"","Caption")
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption,"<img>1</img>")
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign,16)
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHOffset,5)
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionVOffset,2)
End With
.EndUpdate()
End With
|
|
978
|
How can I assign multiple lables to the same bar
Dim h1
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.set_PaneWidth(False,96)
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#1/5/2001#,#1/7/2001#,"","Right")
.set_ItemBar(h1,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,18)
.AddBar(h1,"",#1/5/2001#,#1/5/2001#,"T1","Left")
.set_ItemBar(h1,"T1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,16)
.AddBar(h1,"",#1/5/2001#,#1/7/2001#,"T2","Center")
.GroupBars(h1,"",True,h1,"T1",True)
.GroupBars(h1,"",True,h1,"T1",False)
.GroupBars(h1,"",True,h1,"T2",True)
.GroupBars(h1,"",False,h1,"T2",False)
End With
.EndUpdate()
End With
|
|
977
|
Is there any way to have more Captions on a bar than one
Dim h1
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.set_PaneWidth(False,96)
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#1/5/2001#,#1/7/2001#,"","Right")
.set_ItemBar(h1,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,18)
.AddBar(h1,"",#1/5/2001#,#1/5/2001#,"T1","Left")
.set_ItemBar(h1,"T1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,16)
.GroupBars(h1,"",True,h1,"T1",True)
.GroupBars(h1,"",True,h1,"T1",False)
End With
.EndUpdate()
End With
|
|
976
|
How can I assign multiple lables to the same bar at once
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.set_PaneWidth(False,96)
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/5/2001#,#1/8/2001#,"","Center")
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption,"left")
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign,16)
h = .AddItem("Task 2")
.AddBar(h,"Task",#1/7/2001#,#1/11/2001#,"","Center")
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption,"right")
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign,18)
End With
.EndUpdate()
End With
|
|
975
|
How can I limit the duration or length of the bar
Dim h
With Exg2antt1
.BeginUpdate()
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.set_ScrollRange(exontrol.EXG2ANTTLib.ScrollRangeEnum.exStartDate,#1/1/2001#)
.Chart.set_ScrollRange(exontrol.EXG2ANTTLib.ScrollRangeEnum.exEndDate,#1/7/2001#)
.Chart.set_PaneWidth(False,128)
.Columns.Add("Column")
With .Items
h = .AddItem("Item 1")
.AddBar(h,"Task",#1/2/2001#,#1/5/2001#)
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarMinDuration,2)
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarMaxDuration,5)
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"Min=2 / Max=5")
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,18)
End With
.EndUpdate()
End With
|
|
974
|
I have an EBN file how can I apply different colors to it, so no need to create a new one
Dim h,hC
With Exg2antt1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.SelBackColor = .BackColor
.SelForeColor = .ForeColor
.HasLines = exontrol.EXG2ANTTLib.HierarchyLineEnum.exNoLine
.Columns.Add("Default")
With .Items
h = .AddItem("Root")
hC = .InsertItem(h,Nothing,"Default")
.set_ItemBackColor32(hC,&H1000000)
.set_ItemHeight(.InsertItem(h,Nothing,""),6)
hC = .InsertItem(h,Nothing,"Light Green")
.set_ItemBackColor32(hC,&H100ff00)
Exg2antt1.Chart.set_ItemBackColor32(hC,&H100ff00)
.set_ItemHeight(.InsertItem(h,Nothing,""),6)
hC = .InsertItem(h,Nothing,"Dark Green")
.set_ItemBackColor32(hC,&H1007f00)
.set_ItemHeight(.InsertItem(h,Nothing,""),6)
hC = .InsertItem(h,Nothing,"Magenta")
.set_ItemBackColor32(hC,&H1ff7fff)
.set_ItemHeight(.InsertItem(h,Nothing,""),6)
hC = .InsertItem(h,Nothing,"Yellow")
.set_ItemBackColor32(hC,&H17fffff)
.set_ItemHeight(.InsertItem(h,Nothing,""),6)
.set_ExpandItem(h,True)
End With
End With
|
|
973
|
I need to specify the non-working hours for about 100 days for each item, but the scrolling is very slow. Is there any option to increase the speed
With Exg2antt1
.BeginUpdate()
.AllowChartScrollPage = True
.Columns.Add("Non-Work")
With .Chart
.FirstVisibleDate = #4/4/2009 4:00:00 PM#
.set_PaneWidth(False,52)
.LevelCount = 2
.UnitWidth = 16
With .get_Level(0)
.Label = "<r><%d%>-<%mmm%>"
.Unit = exontrol.EXG2ANTTLib.UnitEnum.exDay
End With
With .get_Level(1)
.Label = "<%hh%>"
.Unit = exontrol.EXG2ANTTLib.UnitEnum.exHour
.Count = 2
End With
End With
With .Items
.AddItem("Default")
.set_ItemNonworkingUnits(.AddItem("Test"),False,"date(shortdate(value)) case(default:0;#4/5/2009# : hour(value) >= 6 and hour(value) <= 12; #4/6/2009# : hour(value) >= 6 and ho" & _
"ur(value) <= 12; #4/7/2009# : hour(value) >= 6 and hour(value) <= 12; #4/8/2009# : hour(value) >= 6 and hour(value) <= 12; #4/9/" & _
"2009# : hour(value) >= 6 and hour(value) <= 12; #4/10/2009# : hour(value) >= 6 and hour(value) <= 12; #4/11/2009# : hour(value) " & _
">= 6 and hour(value) <= 12; #4/12/2009# : hour(value) >= 6 and hour(value) <= 12; #4/13/2009# : hour(value) >= 6 and hour(value)" & _
" <= 12; #4/14/2009# : hour(value) >= 6 and hour(value) <= 12; #4/15/2009# : hour(value) >= 6 and hour(value) <= 12; #4/16/2009# " & _
": hour(value) >= 6 and hour(value) <= 12; #4/17/2009# : hour(value) >= 6 and hour(value) <= 12; #4/18/2009# : hour(value) >= 6 a" & _
"nd hour(value) <= 12; #4/19/2009# : hour(value) >= 6 and hour(value) <= 12; #4/20/2009# : hour(value) >= 6 and hour(value) <= 12" & _
"; #4/21/2009# : hour(value) >= 6 and hour(value) <= 12; #4/22/2009# : hour(value) >= 6 and hour(value) <= 12; #4/23/2009# : hour" & _
"(value) >= 6 and hour(value) <= 12; #4/24/2009# : hour(value) >= 6 and hour(value) <= 12; #4/25/2009# : hour(value) >= 6 and hou" & _
"r(value) <= 12; #4/26/2009# : hour(value) >= 6 and hour(value) <= 12; #4/27/2009# : hour(value) >= 6 and hour(value) <= 12; #4/2" & _
"8/2009# : hour(value) >= 6 and hour(value) <= 12; #4/29/2009# : hour(value) >= 6 and hour(value) <= 12; #4/30/2009# : hour(value" & _
") >= 6 and hour(value) <= 12; #5/1/2009# : hour(value) >= 6 and hour(value) <= 12; #5/2/2009# : hour(value) >= 6 and hour(value)" & _
" <= 12; #5/3/2009# : hour(value) >= 6 and hour(value) <= 12; #5/4/2009# : hour(value) >= 6 and hour(value) <= 12; #5/5/2009# : h" & _
"our(value) >= 6 and hour(value) <= 12; #5/6/2009# : hour(value) >= 6 and hour(value) <= 12; #5/7/2009# : hour(value) >= 6 and ho" & _
"ur(value) <= 12; #5/8/2009# : hour(value) >= 6 and hour(value) <= 12; #5/9/2009# : hour(value) >= 6 and hour(value) <= 12; #5/10" & _
"/2009# : hour(value) >= 6 and hour(value) <= 12; #5/11/2009# : hour(value) >= 6 and hour(value) <= 12; #5/13/2009# : hour(value)" & _
" >= 6 and hour(value) <= 12; #5/14/2009# : hour(value) >= 6 and hour(value) <= 12; #5/15/2009# : hour(value) >= 6 and hour(value" & _
") <= 12; #5/16/2009# : hour(value) >= 6 and hour(value) <= 12; #5/17/2009# : hour(value) >= 6 and hour(value) <= 12; #5/18/2009#" & _
" : hour(value) >= 6 and hour(value) <= 12; #5/19/2009# : hour(value) >= 6 and hour(value) <= 12; #5/20/2009# : hour(value) >= 6 " & _
"and hour(value) <= 12; #5/21/2009# : hour(value) >= 6 and hour(value) <= 12; #5/22/2009# : hour(value) >= 6 and hour(value) <= 1" & _
"2; #5/23/2009# : hour(value) >= 6 and hour(value) <= 12; #5/24/2009# : hour(value) >= 6 and hour(value) <= 12; #5/25/2009# : hou" & _
"r(value) >= 6 and hour(value) <= 12; #5/26/2009# : hour(value) >= 6 and hour(value) <= 12; #5/27/2009# : hour(value) >= 6 and ho" & _
"ur(value) <= 12; #5/28/2009# : hour(value) >= 6 and hour(value) <= 12; #5/29/2009# : hour(value) >= 6 and hour(value) <= 12; #5/" & _
"30/2009# : hour(value) >= 6 and hour(value) <= 12; #5/31/2009# : hour(value) >= 6 and hour(value) <= 12; #6/1/2009# : hour(value" & _
") >= 6 and hour(value) <= 12; #6/2/2009# : hour(value) >= 6 and hour(value) <= 12; #6/3/2009# : hour(value) >= 6 and hour(value)" & _
" <= 12; #6/4/2009# : hour(value) >= 6 and hour(value) <= 12; #6/5/2009# : hour(value) >= 6 and hour(value) <= 12; #6/6/2009# : h" & _
"our(value) >= 6 and hour(value) <= 12; #6/7/2009# : hour(value) >= 6 and hour(value) <= 12; #6/8/2009# : hour(value) >= 6 and ho" & _
"ur(value) <= 12; #6/9/2009# : hour(value) >= 6 and hour(value) <= 12; #6/10/2009# : hour(value) >= 6 and hour(value) <= 12; #6/1" & _
"1/2009# : hour(value) >= 6 and hour(value) <= 12; #6/12/2009# : hour(value) >= 6 and hour(value) <= 12; #6/13/2009# : hour(value" & _
") >= 6 and hour(value) <= 12; #6/14/2009# : hour(value) >= 6 and hour(value) <= 12; #6/15/2009# : hour(value) >= 6 and hour(valu" & _
"e) <= 12; #6/16/2009# : hour(value) >= 6 and hour(value) <= 12; #6/17/2009# : hour(value) >= 6 and hour(value) <= 12; #6/18/2009" & _
"# : hour(value) >= 6 and hour(value) <= 12; #6/19/2009# : hour(value) >= 6 and hour(value) <= 12; #6/21/2009# : hour(value) >= 6" & _
" and hour(value) <= 12; #6/22/2009# : hour(value) >= 6 and hour(value) <= 12; #6/23/2009# : hour(value) >= 6 and hour(value) <= " & _
"12; #6/24/2009# : hour(value) >= 6 and hour(value) <= 12; #6/25/2009# : hour(value) >= 6 and hour(value) <= 12; #6/26/2009# : ho" & _
"ur(value) >= 6 and hour(value) <= 12; #6/27/2009# : hour(value) >= 6 and hour(value) <= 12; #6/28/2009# : hour(value) >= 6 and h" & _
"our(value) <= 12; #6/29/2009# : hour(value) >= 6 and hour(value) <= 12; #6/30/2009# : hour(value) >= 6 and hour(value) <= 12; #7" & _
"/1/2009# : hour(value) >= 6 and hour(value) <= 12; #7/2/2009# : hour(value) >= 6 and hour(value) <= 12; #7/3/2009# : hour(value)" & _
" >= 6 and hour(value) <= 12; #7/4/2009# : hour(value) >= 6 and hour(value) <= 12; #7/5/2009# : hour(value) >= 6 and hour(value) " & _
"<= 12; #7/6/2009# : hour(value) >= 6 and hour(value) <= 12; #7/7/2009# : hour(value) >= 6 and hour(value) <= 12; #7/8/2009# : ho" & _
"ur(value) >= 6 and hour(value) <= 12; #7/9/2009# : hour(value) >= 6 and hour(value) <= 12; #7/10/2009# : hour(value) >= 6 and ho" & _
"ur(value) <= 12; #7/11/2009# : hour(value) >= 6 and hour(value) <= 12; #7/12/2009# : hour(value) >= 6 and hour(value) <= 12; #7/" & _
"13/2009# : hour(value) >= 6 and hour(value) <= 12; #7/14/2009# : hour(value) >= 6 and hour(value) <= 12)")
.set_ItemNonworkingUnits(.AddItem("Test"),False,"date(shortdate(value)) case(default:0;#4/5/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/6" & _
"/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/7/2009# : hour(value) >= 6 and hour(value) <" & _
"= 10 or hour(value) in (16,17,20,21); #4/8/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/9/" & _
"2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/10/2009# : hour(value) >= 6 and hour(value) <" & _
"= 10 or hour(value) in (16,17,20,21); #4/11/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/1" & _
"2/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/13/2009# : hour(value) >= 6 and hour(value)" & _
" <= 10 or hour(value) in (16,17,20,21); #4/14/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4" & _
"/15/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/16/2009# : hour(value) >= 6 and hour(valu" & _
"e) <= 10 or hour(value) in (16,17,20,21); #4/17/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); " & _
"#4/18/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/19/2009# : hour(value) >= 6 and hour(va" & _
"lue) <= 10 or hour(value) in (16,17,20,21); #4/20/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21)" & _
"; #4/21/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/22/2009# : hour(value) >= 6 and hour(" & _
"value) <= 10 or hour(value) in (16,17,20,21); #4/23/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,2" & _
"1); #4/24/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/25/2009# : hour(value) >= 6 and hou" & _
"r(value) <= 10 or hour(value) in (16,17,20,21); #4/26/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20" & _
",21); #4/27/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/28/2009# : hour(value) >= 6 and h" & _
"our(value) <= 10 or hour(value) in (16,17,20,21); #4/29/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17," & _
"20,21); #4/30/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/1/2009# : hour(value) >= 6 and " & _
"hour(value) <= 10 or hour(value) in (16,17,20,21); #5/2/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17," & _
"20,21); #5/3/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/4/2009# : hour(value) >= 6 and h" & _
"our(value) <= 10 or hour(value) in (16,17,20,21); #5/5/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,2" & _
"0,21); #5/6/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/7/2009# : hour(value) >= 6 and ho" & _
"ur(value) <= 10 or hour(value) in (16,17,20,21); #5/8/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20" & _
",21); #5/9/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/10/2009# : hour(value) >= 6 and ho" & _
"ur(value) <= 10 or hour(value) in (16,17,20,21); #5/11/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,2" & _
"0,21); #5/13/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/14/2009# : hour(value) >= 6 and " & _
"hour(value) <= 10 or hour(value) in (16,17,20,21); #5/15/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17" & _
",20,21); #5/16/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/17/2009# : hour(value) >= 6 an" & _
"d hour(value) <= 10 or hour(value) in (16,17,20,21); #5/18/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16," & _
"17,20,21); #5/19/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/20/2009# : hour(value) >= 6 " & _
"and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/21/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (1" & _
"6,17,20,21); #5/22/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/23/2009# : hour(value) >= " & _
"6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/24/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in " & _
"(16,17,20,21); #5/25/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/26/2009# : hour(value) >" & _
"= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/27/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) i" & _
"n (16,17,20,21); #5/28/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/29/2009# : hour(value)" & _
" >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/30/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value)" & _
" in (16,17,20,21); #5/31/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/1/2009# : hour(value" & _
") >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/2/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value)" & _
" in (16,17,20,21); #6/3/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/4/2009# : hour(value)" & _
" >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/5/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) " & _
"in (16,17,20,21); #6/6/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/7/2009# : hour(value) " & _
">= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/8/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) i" & _
"n (16,17,20,21); #6/9/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/10/2009# : hour(value) " & _
">= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/11/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) " & _
"in (16,17,20,21); #6/12/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/13/2009# : hour(value" & _
") >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/14/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value" & _
") in (16,17,20,21); #6/15/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/16/2009# : hour(val" & _
"ue) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/17/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(val" & _
"ue) in (16,17,20,21); #6/18/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/19/2009# : hour(v" & _
"alue) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/21/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(v" & _
"alue) in (16,17,20,21); #6/22/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/23/2009# : hour" & _
"(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/24/2009# : hour(value) >= 6 and hour(value) <= 10 or hour" & _
"(value) in (16,17,20,21); #6/25/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/26/2009# : ho" & _
"ur(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/27/2009# : hour(value) >= 6 and hour(value) <= 10 or ho" & _
"ur(value) in (16,17,20,21); #6/28/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/29/2009# : " & _
"hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/30/2009# : hour(value) >= 6 and hour(value) <= 10 or " & _
"hour(value) in (16,17,20,21); #7/1/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/2/2009# : " & _
"hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/3/2009# : hour(value) >= 6 and hour(value) <= 10 or h" & _
"our(value) in (16,17,20,21); #7/4/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/5/2009# : h" & _
"our(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/6/2009# : hour(value) >= 6 and hour(value) <= 10 or ho" & _
"ur(value) in (16,17,20,21); #7/7/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/8/2009# : ho" & _
"ur(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/9/2009# : hour(value) >= 6 and hour(value) <= 10 or hou" & _
"r(value) in (16,17,20,21); #7/10/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/11/2009# : h" & _
"our(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/12/2009# : hour(value) >= 6 and hour(value) <= 10 or h" & _
"our(value) in (16,17,20,21); #7/13/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/14/2009# :" & _
" hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21))")
.AddItem("Default")
End With
.EndUpdate()
End With
|
|
972
|
How can I use the CASE statement (CASE usage)
With Exg2antt1
.BeginUpdate()
With .Columns.Add("Value")
.Width = 24
.Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.SpinType
End With
With .Columns.Add("CASE - statment")
.ComputedField = "%0 case (default:'not found';1:%0;2:2*%0;3:3*%0;4:4*%0;5:5*%0;7:'Seven';8:'Eight';9:'Nine';11:'Eleven';13:'Thirtheen';14:'Fourt" & _
"heen')"
.ToolTip = .ComputedField
End With
With .Items
.AddItem(0)
.AddItem(1)
.AddItem(2)
End With
.EndUpdate()
End With
|
|
971
|
How can I use the CASE statement (CASE usage)
With Exg2antt1
.BeginUpdate()
With .Columns.Add("Value")
.Width = 24
.Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.SpinType
End With
With .Columns.Add("CASE - statment")
.ComputedField = "%0 case (default:'not found';1:'One';2:'Two';3:'Three';4:'Four';5:'Five';7:'Seven';8:'Eight';9:'Nine';11:'Eleven';13:'Thirtheen" & _
"';14:'Fourtheen')"
.ToolTip = .ComputedField
End With
With .Items
.AddItem(0)
.AddItem(1)
.AddItem(2)
End With
.EndUpdate()
End With
|
|
970
|
I have seen the IN function but it returns -1 or 0. How can I display the value being found ( SWITCH usage )
With Exg2antt1
.BeginUpdate()
With .Columns.Add("Value")
.Width = 24
.Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.SpinType
End With
With .Columns.Add("SWITCH - statment")
.ComputedField = "%0 switch ('not found', 1,2,3,4,5,7,8,9,11,13,14)"
.ToolTip = .ComputedField
End With
With .Items
.AddItem(0)
.AddItem(1)
.AddItem(2)
End With
.EndUpdate()
End With
|
|
969
|
I have a large collection of constant values and using or operator is a time consuming (IN usage). Is there any way to increase the speed to check if a value maches the collection
With Exg2antt1
.BeginUpdate()
With .Columns.Add("Value")
.Width = 24
.Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.SpinType
End With
With .Columns.Add("IN - statment")
.ComputedField = "%0 in (1,2,3,4,5,7,8,9,11,13,14) ? 'found' : ''"
.ToolTip = .ComputedField
End With
With .Items
.AddItem(0)
.AddItem(1)
.AddItem(2)
End With
.EndUpdate()
End With
|
|
968
|
How can I automatically update the exBarPercent value using a slider control
Dim i
With Exg2antt1
.BeginUpdate()
.Items.AllowCellValueToItemBar = True
With .Chart
.FirstVisibleDate = #1/1/2002#
.set_PaneWidth(False,128)
.Bars.Add("Task%Progress").Shortcut = "Percent"
End With
With .Columns.Add("Percent")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty,12)
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey,"P")
End With
With .Items
i = .AddItem(0)
.set_CellBold(i,0,True)
With .get_CellEditor(i,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.SliderType
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exSliderStep,0.01)
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exSpinStep,0.01)
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exSliderMax,1)
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exSliderWidth,-100)
End With
.set_CellValueFormat(i,0,exontrol.EXG2ANTTLib.ValueFormatEnum.exHTML)
.AddBar(i,"Percent",#1/2/2002#,#1/6/2002#,"P")
.set_ItemBar(i,"P",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarShowPercentCaption,True)
.set_CellValue(i,0,0.5)
End With
.EndUpdate()
End With
|
|
967
|
How can I automatically update the exBarPercent value using a spin control
Dim i
With Exg2antt1
.BeginUpdate()
.Items.AllowCellValueToItemBar = True
With .Chart
.FirstVisibleDate = #1/1/2002#
.set_PaneWidth(False,128)
.Bars.Add("Task%Progress").Shortcut = "Percent"
End With
With .Columns.Add("Percent")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty,12)
.FormatColumn = "((0:=round(dbl(%0)*100)) >= 50 ? '<font 8>'+ =:0 + '%</font>' : '<fgcolor=808080><font 6>'+ =:0 + '%</font></fgcolor>')"
End With
With .Items
i = .AddItem(0)
.set_CellBold(i,0,True)
With .get_CellEditor(i,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.SpinType
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exSpinStep,0.01)
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exSliderMax,1)
End With
.set_CellValueFormat(i,0,exontrol.EXG2ANTTLib.ValueFormatEnum.exHTML)
.AddBar(i,"Percent",#1/2/2002#,#1/6/2002#)
.set_CellValue(i,0,0.5)
End With
.EndUpdate()
End With
|
|
966
|
How do I specify for an item all units as being non-working units
With Exg2antt1
.BeginUpdate()
.AllowChartScrollPage = True
.Columns.Add("Non-Work")
With .Chart
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
.FirstVisibleDate = #4/3/2009 10:00:00 AM#
.set_PaneWidth(False,64)
.LevelCount = 2
.UnitWidth = 16
With .get_Level(0)
.Label = "<r><%d%>-<%mmm%>"
.Unit = exontrol.EXG2ANTTLib.UnitEnum.exDay
End With
With .get_Level(1)
.Label = "<%hh%>"
.Unit = exontrol.EXG2ANTTLib.UnitEnum.exHour
.Count = 2
End With
End With
With .Items
.AddItem("Default")
.set_ItemNonworkingUnits(.AddItem("All-Non-Working"),False,"1")
.AddItem("Default")
End With
.EndUpdate()
End With
|
|
965
|
How do I specify for an item all units as being working units
With Exg2antt1
.BeginUpdate()
.AllowChartScrollPage = True
.Columns.Add("Non-Work")
With .Chart
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
.FirstVisibleDate = #4/3/2009 10:00:00 AM#
.set_PaneWidth(False,64)
.LevelCount = 2
.UnitWidth = 16
With .get_Level(0)
.Label = "<r><%d%>-<%mmm%>"
.Unit = exontrol.EXG2ANTTLib.UnitEnum.exDay
End With
With .get_Level(1)
.Label = "<%hh%>"
.Unit = exontrol.EXG2ANTTLib.UnitEnum.exHour
.Count = 2
End With
End With
With .Items
.AddItem("Default")
.set_ItemNonworkingUnits(.AddItem("All-Working"),False,"0")
.AddItem("Default")
End With
.EndUpdate()
End With
|
|
964
|
How can I programmatically specify different non-working units ( days, hours ) for different items
Dim h
With Exg2antt1
.BeginUpdate()
.AllowChartScrollPage = True
.Columns.Add("Non-Work")
With .Chart
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
.Bars.Add("Task:Split").Shortcut = "Task"
.FirstVisibleDate = #7/13/2009 0:00:00 PM#
.set_PaneWidth(False,52)
.LevelCount = 2
.UnitWidth = 16
With .get_Level(0)
.Label = "<r><b><%d%></b> <%mmm%> <%yyyy%>"
.Unit = exontrol.EXG2ANTTLib.UnitEnum.exDay
End With
With .get_Level(1)
.Label = "<%hh%>"
.Unit = exontrol.EXG2ANTTLib.UnitEnum.exHour
.Count = 2
End With
End With
With .Items
h = .AddItem("Item 1")
.set_ItemNonworkingUnits(h,False,"(shortdate(value) = #7/14/2009# and hour(value) >= 6 and hour(value) <= 12)")
.AddBar(h,"Task",#7/14/2009 4:00:00 AM#,#7/14/2009 2:00:00 PM#)
h = .AddItem("Item 2")
.set_ItemNonworkingUnits(h,False,"(((hour(value) >= 4 and hour(value) <= 16) or hour(value) = 2) and month(value) = 7) or ((hour(value) >= 2 and hour(value) < 10" & _
")) and month(value) = 6 or weekday(value) = 6")
.AddBar(h,"Task",#7/14/2009 1:00:00 AM#,#7/14/2009 6:00:00 AM#)
End With
.EndUpdate()
End With
|
|
963
|
I am programmatically select a date using the Chart.SelectDate property, but can't see why the date is not highlighted. What am I doing wrong
With Exg2antt1
With .Chart
.LevelCount = 2
.FirstVisibleDate = #1/1/2001#
.SelectLevel = 1
.set_SelectDate(#1/4/2001#,True)
End With
End With
|
|
962
|
How do I show a shorter line in the chart's level
With Exg2antt1
.BeginUpdate()
.GridLineColor = Color.FromArgb(128,128,128)
With .Chart
.DrawLevelSeparator = exontrol.EXG2ANTTLib.LevelLineEnum.exLevelNoLine
.UnitWidth = 24
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,0)
.LevelCount = 2
With .get_Level(0)
.Alignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
.Label = "<%dddd%>"
.DrawTickLines = exontrol.EXG2ANTTLib.LevelLineEnum.exLevelLowerHalf Or exontrol.EXG2ANTTLib.LevelLineEnum.exLevelSolidLine
End With
With .get_Level(1)
.Label = 65536
.Count = 6
.DrawTickLines = &H200 Or exontrol.EXG2ANTTLib.LevelLineEnum.exLevelMiddleLine Or exontrol.EXG2ANTTLib.LevelLineEnum.exLevelSolidLine
.DrawTickLinesFrom(0,exontrol.EXG2ANTTLib.LevelLineEnum.exLevelUpperHalf Or exontrol.EXG2ANTTLib.LevelLineEnum.exLevelSolidLine)
End With
End With
.EndUpdate()
End With
|
|
961
|
How do I replicate the screen shot http://www.exontrol.com/images/exg2antt9.jpg
Dim h
With Exg2antt1
.BeginUpdate()
With .VisualAppearance
.Add(1,"C:\Program Files\Exontrol\ExG2antt.NET\Sample\EBN\headdark.ebn")
.Add(2,"C:\Program Files\Exontrol\ExG2antt.NET\Sample\EBN\xpbsel.ebn")
.Add(3,"C:\Program Files\Exontrol\ExG2antt.NET\Sample\EBN\headligh.ebn")
.Add(4,"CP:1 0 0 1 1")
End With
.BackColorHeader32 = &H4000000
.Chart.BackColorLevelHeader32 = &H4000000
.SelBackColor32 = &H20000ff
.GridLineColor = Color.FromArgb(128,128,128)
.HeaderHeight = 22
.SelForeColor = Color.FromArgb(0,0,0)
.MarkSearchColumn = False
.ScrollBySingleLine = False
.ShowFocusRect = False
.DefaultItemHeight = 48
With .Columns
With .Add("Group")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,True)
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellBackColor,50331648)
.LevelKey = 1
End With
With .Add("Histogram")
.Width = 18
.AllowSizing = False
.LevelKey = 1
.Position = 0
End With
End With
With .Chart
.FirstVisibleDate = #6/11/2009#
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
.set_PaneWidth(False,96)
.LevelCount = 2
.DrawLevelSeparator = exontrol.EXG2ANTTLib.LevelLineEnum.exLevelNoLine
With .get_Level(0)
.Label = "<%mmmm%> <%yyyy%>"
.Unit = exontrol.EXG2ANTTLib.UnitEnum.exMonth
.Alignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
End With
With .get_Level(1)
.FormatLabel = "weekday(dvalue)=1?value:''"
.DrawTickLines = exontrol.EXG2ANTTLib.LevelLineEnum.exLevelLowerHalf Or exontrol.EXG2ANTTLib.LevelLineEnum.exLevelSolidLine
.DrawTickLinesFrom(0,exontrol.EXG2ANTTLib.LevelLineEnum.exLevelSolidLine)
.Alignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
End With
With .Bars.Item("Task")
.Color32 = &H2000000
.Height = 18
.OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
.HistogramColor32 = &H1000000
.HistogramType = exontrol.EXG2ANTTLib.HistogramTypeEnum.exHistOverAllocation
End With
.HistogramVisible = True
.HistogramHeight = 48
.HistogramView = exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramCheckedItems
End With
With .Items
h = .AddItem("Group <b>A</b>")
.set_CellValueFormat(h,0,exontrol.EXG2ANTTLib.ValueFormatEnum.exHTML)
.set_CellMerge(h,0,1)
.AddBar(h,"Task",#6/12/2009#,#6/19/2009#,"K1","Requirements")
.AddBar(h,"Task",#6/13/2009#,#6/21/2009#,"K2","Sales & Marketing")
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,255)
.set_ItemBar(h,"K2",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,255)
.set_CellState(h,0,1)
h = .AddItem("Group <b>B</b>")
.set_CellValueFormat(h,0,exontrol.EXG2ANTTLib.ValueFormatEnum.exHTML)
.set_CellMerge(h,0,1)
.AddBar(h,"Task",#6/14/2009#,#6/23/2009#,"K1","<b>GUI</b> Design")
.AddBar(h,"Task",#6/18/2009#,#6/25/2009#,"K2","Class Design")
h = .AddItem("Group <b>C</b>")
.set_CellValueFormat(h,0,exontrol.EXG2ANTTLib.ValueFormatEnum.exHTML)
.set_CellMerge(h,0,1)
.AddBar(h,"Task",#6/12/2009#,#6/19/2009#,"K1","<b>GUI</b> Coding")
.AddBar(h,"Task",#6/13/2009#,#6/25/2009#,"K2","Design & Concept")
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,65280)
.set_ItemBar(h,"K2",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,65280)
End With
.EndUpdate()
End With
|
|
960
|
How can I remove all bars from the chart
With Exg2antt1
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
With .Items
.AddBar(.AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"K1")
.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K1")
.AddBar(.AddItem("Task 3"),"Task",#1/2/2001#,#1/4/2001#,"K1")
.AddBar(.AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K2")
.ClearBars(0)
End With
End With
|
|
959
|
How can I change the color for all bars with a specified key
With Exg2antt1
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
With .Items
.AddBar(.AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"K1")
.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K1")
.AddBar(.AddItem("Task 3"),"Task",#1/2/2001#,#1/4/2001#,"K1")
.AddBar(.AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K2")
.set_ItemBar(0,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,255)
End With
End With
|
|
958
|
Is there any automatic way to change a property for all bars with a specified key
With Exg2antt1
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
With .Items
.AddBar(.AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"K1")
.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K1")
.AddBar(.AddItem("Task 3"),"Task",#1/2/2001#,#1/4/2001#,"K1")
.AddBar(.AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K2")
.set_ItemBar(0,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,255)
End With
End With
|
|
957
|
How can I remove all bars with specified key
With Exg2antt1
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
With .Items
.AddBar(.AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"K1")
.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K1")
.AddBar(.AddItem("Task 3"),"Task",#1/2/2001#,#1/4/2001#,"K1")
.AddBar(.AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K2")
.RemoveBar(0,"K1")
End With
End With
|
|
956
|
How do I several bars with different vertical offsets
Dim h
With Exg2antt1
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add("Column")
With .Items
h = .AddItem("Item")
.set_ItemHeight(h,62)
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"T1")
.set_ItemBar(h,"T1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarOffset,-23)
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"T2")
.set_ItemBar(h,"T2",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarOffset,-11)
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"T3")
.set_ItemBar(h,"T3",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarOffset,1)
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"T4")
.set_ItemBar(h,"T4",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarOffset,13)
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"T5")
.set_ItemBar(h,"T5",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarOffset,25)
End With
End With
|
|
955
|
Is there any option to show gradient bars without using EBN technology
Dim h
With Exg2antt1
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
With .Chart.Bars.Item("Task")
.Color = Color.FromArgb(255,0,0)
.StartColor = Color.FromArgb(0,255,0)
.EndColor = Color.FromArgb(255,255,0)
.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBox
End With
With .Items
h = .AddItem("Task")
.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"")
End With
End With
|
|
954
|
How can I define a bar with border and solid filling
Dim h
With Exg2antt1
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
With .Chart.Bars.Item("Task")
.Color = Color.FromArgb(255,0,0)
.StartColor = Color.FromArgb(255,255,0)
.EndColor = Color.FromArgb(255,255,0)
.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBox
End With
With .Items
h = .AddItem("Task")
.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"")
End With
End With
|
|
953
|
How can I define a bar with border and solid filling
Dim h
With Exg2antt1
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
With .Chart.Bars.Item("Task")
.Color = Color.FromArgb(255,0,0)
.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBox
.Height = 18
End With
With .Items
h = .AddItem("Task")
.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"")
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarBackColor,65535)
End With
End With
|
|
952
|
How do I define a bar with solid border and filling
Dim h
With Exg2antt1
.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExG2antt.NET\sample\EBN\blackboxt.ebn")
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
With .Chart.Bars.Item("Task")
.Color32 = &H1000000
.Height = 18
End With
With .Items
h = .AddItem("Task")
.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"")
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,255)
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarBackColor,65535)
End With
End With
|
|
951
|
Can I control the units/resource/effort being allocated to a bar when displaying OverAllocation histogram
Dim h1
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Columns.Add("Effort")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty,21)
.Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.SpinType
End With
With .Chart
.LevelCount = 2
.NonworkingDays = 0
.set_PaneWidth(False,96)
.FirstVisibleDate = #6/20/2005#
.HistogramVisible = True
.HistogramHeight = 202
.HistogramView = exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramAllItems
With .Bars.Item("Task")
.HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exRectangularCurve Or exontrol.EXG2ANTTLib.PatternEnum.exPatternDot
.HistogramType = exontrol.EXG2ANTTLib.HistogramTypeEnum.exHistOverAllocation
.HistogramCriticalValue = 50
.HistogramGridLinesColor = Color.FromArgb(192,192,192)
.HistogramRulerLinesColor = Color.FromArgb(0,0,1)
End With
End With
With .Items
.AllowCellValueToItemBar = True
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#6/21/2005#,#6/25/2005#)
.set_CellValue(h1,1,2)
h1 = .AddItem("Task 2")
.AddBar(h1,"Task",#6/24/2005#,#6/28/2005#)
.set_CellValue(h1,1,1)
h1 = .AddItem("Task 3")
.AddBar(h1,"Task",#6/27/2005#,#7/1/2005#)
.set_CellValue(h1,1,2)
h1 = .AddItem("Task 4")
.AddBar(h1,"Task",#6/30/2005#,#7/2/2005#)
.set_CellValue(h1,1,1)
End With
.EndUpdate()
End With
|
|
950
|
Can I control the units/resource/effort being allocated to a bar when displaying Overload histogram
Dim h1
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Columns.Add("Effort")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty,21)
.Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.SpinType
End With
With .Chart
.LevelCount = 2
.NonworkingDays = 0
.set_PaneWidth(False,96)
.FirstVisibleDate = #6/20/2005#
.HistogramVisible = True
.HistogramHeight = 128
.HistogramView = exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramAllItems
With .Bars.Item("Task")
.HistogramPattern = .Pattern
.HistogramType = exontrol.EXG2ANTTLib.HistogramTypeEnum.exHistOverload
.HistogramCriticalValue = 3
.ShowHistogramValues = "value>3?255:1"
.HistogramItems = -11
.HistogramGridLinesColor = Color.FromArgb(192,192,192)
.HistogramRulerLinesColor = Color.FromArgb(0,0,1)
End With
End With
With .Items
.AllowCellValueToItemBar = True
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#6/21/2005#,#6/23/2005#)
.set_CellValue(h1,1,4)
h1 = .AddItem("Task 2")
.AddBar(h1,"Task",#6/24/2005#,#6/26/2005#)
.set_CellValue(h1,1,3)
h1 = .AddItem("Task 3")
.AddBar(h1,"Task",#6/27/2005#,#6/29/2005#)
.set_CellValue(h1,1,2)
h1 = .AddItem("Task 4")
.AddBar(h1,"Task",#6/30/2005#,#7/2/2005#)
.set_CellValue(h1,1,1)
End With
.EndUpdate()
End With
|
|
949
|
How can I display double-lines curves in the histogram
With Exg2antt1
.AntiAliasing = True
With .Chart
.set_PaneWidth(False,48)
.FirstVisibleDate = #1/1/2001#
.HistogramVisible = True
.HistogramHeight = 64
With .Bars.Item("Task")
.HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exBezierCurve
.HistogramItems = 3
.HistogramBorderColor = Color.FromArgb(128,0,0)
.HistogramColor = Color.FromArgb(255,0,0)
End With
End With
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.AddItem("Item 2"),"Task",#1/3/2001#,#1/7/2001#)
End With
End With
|
|
948
|
Is there any option to display values in the histogram using different colors
With Exg2antt1
With .Chart
.FirstVisibleDate = #1/1/2001#
.HistogramVisible = True
.HistogramHeight = 32
With .Bars.Item("Task")
.HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
.HistogramItems = 6
.ShowHistogramValues = "value>1?255:65280"
End With
End With
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.AddItem("Item 1"),"Task",#1/3/2001#,#1/7/2001#)
End With
End With
|
|
947
|
Is there any option to display values in the histogram using different colors
With Exg2antt1
With .Chart
.FirstVisibleDate = #1/1/2001#
.HistogramVisible = True
.HistogramHeight = 32
With .Bars.Item("Task")
.HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
.HistogramItems = 6
.ShowHistogramValues = "value>1?255:1"
End With
End With
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.AddItem("Item 1"),"Task",#1/3/2001#,#1/7/2001#)
End With
End With
|
|
946
|
How can I display only few values in the histogram, such as the values greater than a value
With Exg2antt1
With .Chart
.FirstVisibleDate = #1/1/2001#
.HistogramVisible = True
.HistogramHeight = 32
With .Bars.Item("Task")
.HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
.ShowHistogramValues = "value>1"
End With
End With
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.AddItem("Item 1"),"Task",#1/3/2001#,#1/7/2001#)
End With
End With
|
|
945
|
How can I display values in the histogram
With Exg2antt1
With .Chart
.FirstVisibleDate = #1/1/2001#
.HistogramVisible = True
.HistogramHeight = 32
With .Bars.Item("Task")
.HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
.ShowHistogramValues = "1"
End With
End With
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.AddItem("Item 1"),"Task",#1/3/2001#,#1/7/2001#)
End With
End With
|
|
944
|
How can I scroll the chart to find a bar
Dim h
With Exg2antt1
.Columns.Add("Column")
.Chart.LevelCount = 2
.Chart.set_PaneWidth(False,64)
.DefaultItemHeight = 32
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#,1)
.AddBar(.AddItem("Item 2"),"Task",#1/2/2001#,#1/4/2001#,2)
.AddBar(.AddItem("Item 3"),"Task",#1/2/2001#,#1/4/2001#,3)
.AddBar(.AddItem("Item 4"),"Task",#1/2/2001#,#1/4/2001#,4)
.AddBar(.AddItem("Item 5"),"Task",#1/2/2001#,#1/4/2001#,5)
.AddBar(.AddItem("Item 6"),"Task",#1/2/2001#,#1/4/2001#,6)
.AddBar(.AddItem("Item 7"),"Task",#1/2/2001#,#1/4/2001#,7)
.AddBar(.AddItem("Item 8"),"Task",#1/2/2001#,#1/4/2001#,8)
.AddBar(.AddItem("Item 9"),"Task",#1/2/2001#,#1/4/2001#,8)
.AddBar(.AddItem("Item 10"),"Task",#1/2/2001#,#1/4/2001#,10)
.AddBar(.AddItem("Item 11"),"Task",#1/2/2001#,#1/4/2001#,11)
.AddBar(.AddItem("Item 12"),"Task",#1/2/2001#,#1/4/2001#,12)
.AddBar(.AddItem("Item 13"),"Task",#1/2/2001#,#1/4/2001#,13)
.AddBar(.AddItem("Item 14"),"Task",#1/2/2001#,#1/4/2001#,14)
End With
h = .Items.get_FindBar(14)
.Items.EnsureVisibleItem(h)
.Chart.ScrollTo(Exg2antt1.Items.get_ItemBar(h,14,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarStart),1)
End With
|
|
943
|
Can I change the color/marker/frame for selected bars
Dim h
With Exg2antt1
.BeginUpdate()
With .VisualAppearance
.Add(2,"c:\exontrol\images\normal.ebn")
.Add(1,"CP:2 3 2 -3 -2")
End With
With .Chart
.FirstVisibleDate = #1/1/2002#
.SelBarColor32 = &H1000000
.set_PaneWidth(False,48)
End With
.Columns.Add("Task")
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2002#,#1/4/2002#,"A")
.AddBar(h,"Task",#1/6/2002#,#1/10/2002#,"B")
.AddBar(h,"Task",#1/11/2002#,#1/14/2002#,"C")
.set_ItemBar(h,"A",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected,True)
.set_ItemBar(h,"B",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected,True)
End With
.EndUpdate()
End With
|
|
942
|
Can I display a larger marker for selected bars, eventually using the EBN technology
Dim h
With Exg2antt1
.BeginUpdate()
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
With .Chart
.FirstVisibleDate = #1/1/2002#
.SelBarColor32 = &H1000000
.set_PaneWidth(False,48)
End With
.Columns.Add("Task")
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2002#,#1/4/2002#,"A")
.AddBar(h,"Task",#1/6/2002#,#1/10/2002#,"B")
.AddBar(h,"Task",#1/11/2002#,#1/14/2002#,"C")
.set_ItemBar(h,"A",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected,True)
.set_ItemBar(h,"B",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected,True)
End With
.EndUpdate()
End With
|
|
941
|
How do I change the color for the selected bars
Dim h
With Exg2antt1
.BeginUpdate()
.Debug = True
With .Chart
.FirstVisibleDate = #1/1/2002#
.SelBarColor = Color.FromArgb(255,0,0)
.set_PaneWidth(False,48)
End With
.Columns.Add("Task")
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2002#,#1/4/2002#,"A")
.AddBar(h,"Task",#1/6/2002#,#1/10/2002#,"B")
.AddBar(h,"Task",#1/11/2002#,#1/14/2002#,"C")
.set_ItemBar(h,"A",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected,True)
.set_ItemBar(h,"B",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected,True)
End With
.EndUpdate()
End With
|
|
940
|
How can I change the background color for child bars of a summary bar
Dim h1,hR1
With Exg2antt1
.BeginUpdate()
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
.HasLines = exontrol.EXG2ANTTLib.HierarchyLineEnum.exNoLine
With .Chart
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exNoCreateBar
.AllowLinkBars = False
.FirstVisibleDate = #1/1/2008#
.LevelCount = 2
.set_PaneWidth(False,112)
End With
.Columns.Add("")
With .Items
hR1 = .AddItem("Team 1")
.AddBar(hR1,"Summary",#1/2/2008#,#1/8/2008#,"")
.set_ItemBar(hR1,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exSummaryBarBackColor,12895428)
h1 = .InsertItem(hR1,Nothing,"Member 1")
.AddBar(h1,"Task",#1/2/2008#,#1/7/2008#)
.DefineSummaryBars(hR1,"",h1,"")
h1 = .InsertItem(hR1,Nothing,"Member 2")
.AddBar(h1,"Task",#1/4/2008#,#1/9/2008#)
.DefineSummaryBars(hR1,"",h1,"")
h1 = .InsertItem(hR1,Nothing,"Member 3")
.AddBar(h1,"Task",#1/5/2008#,#1/10/2008#)
.DefineSummaryBars(hR1,"",h1,"")
.set_ExpandItem(hR1,True)
End With
.EndUpdate()
End With
|
|
939
|
How can I allow resizing the bar only in the right part of the bar
Dim h
With Exg2antt1
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K1")
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanResize,2)
End With
End With
|
|
938
|
How can I allow resizing the bar only in the left part of the bar
Dim h
With Exg2antt1
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K1")
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanResize,1)
End With
End With
|
|
937
|
How can I show the links that starts from selected bar being more visible, while the rest being transparent
Dim h1,h2,h3
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.FirstVisibleDate = #9/20/2006#
.set_PaneWidth(False,64)
.set_ShowLinksWidth(exontrol.EXG2ANTTLib.ShowLinksEnum.exShowLinksStartFrom,2)
.set_ShowLinksStyle(exontrol.EXG2ANTTLib.ShowLinksEnum.exShowLinksStartFrom,exontrol.EXG2ANTTLib.LinkStyleEnum.exLinkDot)
.set_ShowLinksColor(exontrol.EXG2ANTTLib.ShowLinksEnum.exShowLinksEndTo,Color.FromArgb(200,200,200))
.set_ShowLinksColor(exontrol.EXG2ANTTLib.ShowLinksEnum.exShowUnselectedLinks,Color.FromArgb(200,200,200))
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#9/21/2006#,#9/23/2006#)
h2 = .AddItem("Task 2")
.AddBar(h2,"Task",#9/25/2006#,#9/27/2006#)
.set_ItemBar(h2,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected,True)
.AddLink("L1",h1,"",h2,"")
.set_Link("L1",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkText,"L1")
h3 = .AddItem("Task 3")
.AddBar(h3,"Task",#9/29/2006#,#10/2/2006#)
.AddLink("L2",h2,"",h3,"")
.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkText,"L2")
End With
.EndUpdate()
End With
|
|
936
|
How can I show only the links that starts from selected bar
Dim h,h1,h2,h3
With Exg2antt1
.BeginUpdate()
.MarkSearchColumn = False
.OnResizeControl = exontrol.EXG2ANTTLib.OnResizeControlEnum.exResizeChart
.Columns.Add("Tasks")
.Columns.Add("Start").Visible = False
.Columns.Add("End").Visible = False
With .Chart
.FirstVisibleDate = #9/20/2006#
.set_PaneWidth(False,64)
.set_ShowLinksColor(exontrol.EXG2ANTTLib.ShowLinksEnum.exShowLinksEndTo,.BackColor)
.set_ShowLinksColor(exontrol.EXG2ANTTLib.ShowLinksEnum.exShowUnselectedLinks,.BackColor)
End With
With .Items
h1 = .AddItem("Task 1")
.set_CellValue(h1,1,#9/21/2006#)
.set_CellValue(h1,2,#9/24/2006#)
.AddBar(h1,"Task",.get_CellValue(h1,1),.get_CellValue(h1,2))
h2 = .InsertItem(h,Nothing,"Task 2")
.set_CellValue(h2,1,#9/25/2006#)
.set_CellValue(h2,2,#9/28/2006#)
.AddBar(h2,"Task",.get_CellValue(h2,1),.get_CellValue(h2,2))
.set_ItemBar(h2,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected,True)
.AddLink("L1",h1,"",h2,"")
h3 = .InsertItem(h,Nothing,"Task 3")
.set_CellValue(h3,1,#9/29/2006#)
.set_CellValue(h3,2,#10/2/2006#)
.AddBar(h3,"Task",.get_CellValue(h3,1),.get_CellValue(h3,2))
.AddLink("L2",h2,"",h3,"")
End With
.EndUpdate()
End With
|
|
935
|
How can I hide links that are not related to selected bar
Dim h,h1,h2,h3
With Exg2antt1
.BeginUpdate()
.MarkSearchColumn = False
.OnResizeControl = exontrol.EXG2ANTTLib.OnResizeControlEnum.exResizeChart
.Columns.Add("Tasks")
.Columns.Add("Start").Visible = False
.Columns.Add("End").Visible = False
With .Chart
.FirstVisibleDate = #9/20/2006#
.set_PaneWidth(False,64)
.set_ShowLinksColor(exontrol.EXG2ANTTLib.ShowLinksEnum.exShowUnselectedLinks,.BackColor)
End With
With .Items
h1 = .AddItem("Task 1")
.set_CellValue(h1,1,#9/21/2006#)
.set_CellValue(h1,2,#9/24/2006#)
.AddBar(h1,"Task",.get_CellValue(h1,1),.get_CellValue(h1,2))
.set_ItemBar(h1,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected,True)
h2 = .InsertItem(h,Nothing,"Task 2")
.set_CellValue(h2,1,#9/25/2006#)
.set_CellValue(h2,2,#9/28/2006#)
.AddBar(h2,"Task",.get_CellValue(h2,1),.get_CellValue(h2,2))
.AddLink("L1",h1,"",h2,"")
h3 = .InsertItem(h,Nothing,"Task 3")
.set_CellValue(h3,1,#9/29/2006#)
.set_CellValue(h3,2,#10/2/2006#)
.AddBar(h3,"Task",.get_CellValue(h3,1),.get_CellValue(h3,2))
.AddLink("L2",h2,"",h3,"")
End With
.EndUpdate()
End With
|
|
934
|
How can I show the direction of the link using EBN files
Dim h1,h2
With Exg2antt1
.BeginUpdate()
With .VisualAppearance
.Add(1,"c:\exontrol\images\normal.ebn")
.Add(2,"CP:1 -1 -1 1 1")
.Add(3,"CP:1 -2 -2 2 2")
End With
With .Chart
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,128)
End With
.Columns.Add("Column")
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"B1")
h2 = .AddItem("Task 2")
.AddBar(h2,"Task",#1/5/2001#,#1/13/2001#,"B2")
.AddLink("L1",h1,"B1",h2,"B2")
.set_Link("L1",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkArrowColor,16777216)
h2 = .AddItem("Task 3")
.AddBar(h2,"Task",#1/5/2001#,#1/13/2001#,"B3")
.AddLink("L2",h1,"B1",h2,"B3")
.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkArrowColor,33554432)
h2 = .AddItem("Task 4")
.AddBar(h2,"Task",#1/5/2001#,#1/13/2001#,"B5")
.AddLink("L3",h1,"B1",h2,"B5")
.set_Link("L3",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkArrowColor,50331648)
End With
.EndUpdate()
End With
|
|
933
|
How can I show round links
With Exg2antt1
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#,"B1")
.AddBar(.AddItem("Item 2"),"Task",#1/5/2001#,#1/13/2001#,"B2")
.AddLink("L1",.get_FindItem("Item 1",0),"B1",.get_FindItem("Item 2",0),"B2")
.set_Link("L1",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkShowRound,True)
End With
End With
|
|
932
|
How can I change the color to display the arrow of the link
With Exg2antt1
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#,"B1")
.AddBar(.AddItem("Item 2"),"Task",#1/6/2001#,#1/14/2001#,"B2")
.AddLink("L1",.get_FindItem("Item 1",0),"B1",.get_FindItem("Item 2",0),"B2")
.set_Link("L1",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkArrowColor,255)
End With
End With
|
|
931
|
I use UnitScale: exHour and I want to show only from 9 to 18 hour. The idea is to show only the working part of a day. Is this possible
With Exg2antt1
.BeginUpdate()
With .Chart
.MarkTodayColor = .BackColor
.BackColorLevelHeader = Color.FromArgb(255,255,255)
.set_PaneWidth(False,0)
.LevelCount = 2
With .get_Level(0)
.Label = "<b><%dddd%></b> <%d%>"
.Alignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
.DrawTickLines = exontrol.EXG2ANTTLib.LevelLineEnum.exLevelNoLine
End With
With .get_Level(1)
.Label = 65536
.DrawTickLines = exontrol.EXG2ANTTLib.LevelLineEnum.exLevelMiddleLine Or exontrol.EXG2ANTTLib.LevelLineEnum.exLevelDotLine
.DrawTickLinesFrom(0,exontrol.EXG2ANTTLib.LevelLineEnum.exLevelDotLine)
End With
.NonworkingHours = 16253439
.ShowNonworkingUnits = False
.ShowNonworkingDates = False
.ShowNonworkingHours = False
End With
.EndUpdate()
End With
|
|
930
|
Can I display tick lines from other level to my base level so time units gets separated more clearly
With Exg2antt1
.BeginUpdate()
With .Chart
.DrawLevelSeparator = exontrol.EXG2ANTTLib.LevelLineEnum.exLevelNoLine
.UnitWidth = 24
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,0)
.LevelCount = 2
With .get_Level(0)
.Alignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
.Label = "<%dddd%>"
.DrawTickLines = exontrol.EXG2ANTTLib.LevelLineEnum.exLevelLowerHalf Or exontrol.EXG2ANTTLib.LevelLineEnum.exLevelSolidLine
End With
With .get_Level(1)
.Label = 65536
.Count = 6
.DrawTickLines = exontrol.EXG2ANTTLib.LevelLineEnum.exLevelMiddleLine Or exontrol.EXG2ANTTLib.LevelLineEnum.exLevelSolidLine
.DrawTickLinesFrom(0,exontrol.EXG2ANTTLib.LevelLineEnum.exLevelSolidLine)
End With
End With
.EndUpdate()
End With
|
|
929
|
Is there any property to change the style of the tick lines being shown in the chart
With Exg2antt1
.BeginUpdate()
With .Chart
.UnitWidth = 24
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,0)
.LevelCount = 2
With .get_Level(0)
.Alignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
.Label = "<%dddd%>"
.DrawTickLines = exontrol.EXG2ANTTLib.LevelLineEnum.exLevelSolidLine
End With
With .get_Level(1)
.Label = 65536
.Count = 6
.DrawTickLines = exontrol.EXG2ANTTLib.LevelLineEnum.exLevelUpperHalf Or exontrol.EXG2ANTTLib.LevelLineEnum.exLevelSolidLine
End With
.DrawLevelSeparator = exontrol.EXG2ANTTLib.LevelLineEnum.exLevelSolidLine
End With
.EndUpdate()
End With
|
|
928
|
Is there any property to change the style of the tick lines being shown in the chart
With Exg2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,0)
.LevelCount = 2
.DrawLevelSeparator = exontrol.EXG2ANTTLib.LevelLineEnum.exLevelSolidLine
With .get_Level(0)
.Label = "<%dddd%>"
.DrawTickLines = exontrol.EXG2ANTTLib.LevelLineEnum.exLevelSolidLine
End With
With .get_Level(1)
.Label = 65536
.Count = 6
.DrawTickLines = exontrol.EXG2ANTTLib.LevelLineEnum.exLevelSolidLine
End With
End With
.EndUpdate()
End With
|
|
927
|
How can I show the levels based on the base level so tick lines aligns better
With Exg2antt1
.BeginUpdate()
With .Chart
.AdjustLevelsToBase = True
.UnitWidth = 24
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,0)
.LevelCount = 2
.get_Level(0).Label = "<%dddd%>"
With .get_Level(1)
.Label = 65536
.Count = 5
End With
End With
.EndUpdate()
End With
|
|
926
|
How can I show only working hours in other words only the working part of the day
With Exg2antt1
.BeginUpdate()
With .Chart
.AllowSelectDate = exontrol.EXG2ANTTLib.SelectDateEnum.exNoSelectDate
.MarkTodayColor = .BackColor
.set_PaneWidth(False,0)
.LevelCount = 2
With .get_Level(0)
.Label = "<b><%dddd%></b> <%d%>"
.Alignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
.DrawTickLines = exontrol.EXG2ANTTLib.LevelLineEnum.exLevelNoLine
End With
With .get_Level(1)
.Label = 65536
.set_ReplaceLabel("09","<fgcolor=FF0000><b><font ;10>9</font></b></fgcolor>")
End With
.NonworkingHours = 16253439
.ShowNonworkingUnits = False
.ShowNonworkingDates = False
.ShowNonworkingHours = False
End With
.EndUpdate()
End With
|
|
925
|
How can I specify the effort for bars when displaying the overload histogram
Dim h1
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.LevelCount = 2
.NonworkingDays = 0
.set_PaneWidth(False,52)
.FirstVisibleDate = #6/20/2005#
.HistogramVisible = True
.HistogramHeight = 64
.HistogramView = exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramAllItems
With .Bars.Item("Task")
.HistogramPattern = .Pattern
.HistogramType = exontrol.EXG2ANTTLib.HistogramTypeEnum.exHistOverload
.HistogramItems = -6
.HistogramGridLinesColor = Color.FromArgb(192,192,192)
.HistogramRulerLinesColor = Color.FromArgb(0,0,1)
End With
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#6/21/2005#,#6/23/2005#,"","4")
.set_ItemBar(h1,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort,4)
h1 = .AddItem("Task 2")
.AddBar(h1,"Task",#6/24/2005#,#6/26/2005#,"",3)
.set_ItemBar(h1,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort,3)
h1 = .AddItem("Task 3")
.AddBar(h1,"Task",#6/27/2005#,#6/29/2005#,"",2)
.set_ItemBar(h1,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort,2)
h1 = .AddItem("Task 4")
.AddBar(h1,"Task",#6/30/2005#,#7/2/2005#,"",1)
End With
.EndUpdate()
End With
|
|
924
|
How can I display the cumulative histogram and showing the bars that generated it using different colors
Dim h
With Exg2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #1/1/2001#
.HistogramVisible = True
.HistogramHeight = 64
.set_PaneWidth(False,128)
.HistogramView = exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramNoGrouping Or exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramLeafItems Or exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramUnlockedItems Or exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramCheckedItems
With .Bars.Item("Task")
.HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternSolid
.HistogramType = exontrol.EXG2ANTTLib.HistogramTypeEnum.exHistCumulative
.HistogramCumulativeOriginalColorBars = exontrol.EXG2ANTTLib.HistogramCumulativeOriginalColorBarsEnum.exChangeColor
.HistogramItems = 6
.HistogramRulerLinesColor = Color.FromArgb(128,0,0)
.HistogramBorderColor = Color.FromArgb(1,0,0)
End With
End With
With .Columns.Add("Column")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,True)
.PartialCheck = True
End With
With .Items
h = .AddItem("Project 1")
.AddBar(.InsertItem(h,Nothing,"Item 1"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.InsertItem(h,Nothing,"Item 2"),"Task",#1/3/2001#,#1/5/2001#)
.AddBar(.InsertItem(h,Nothing,"Item 3"),"Task",#1/4/2001#,#1/6/2001#)
.AddBar(.InsertItem(h,Nothing,"Item 4"),"Task",#1/2/2001#,#1/8/2001#)
.set_CellState(.get_ItemByIndex(1),0,1)
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
|
923
|
How can I show the cumulative histogram for my bar
Dim h
With Exg2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #1/1/2001#
.HistogramVisible = True
.HistogramHeight = 64
.set_PaneWidth(False,128)
.HistogramView = exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramNoGrouping Or exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramLeafItems Or exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramUnlockedItems Or exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramCheckedItems
With .Bars.Item("Task")
.HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternSolid
.HistogramType = exontrol.EXG2ANTTLib.HistogramTypeEnum.exHistCumulative
.HistogramItems = 6
.HistogramRulerLinesColor = Color.FromArgb(128,0,0)
.HistogramBorderColor = Color.FromArgb(1,0,0)
End With
End With
With .Columns.Add("Column")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,True)
.PartialCheck = True
End With
With .Items
h = .AddItem("Project 1")
.AddBar(.InsertItem(h,Nothing,"Item 1"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.InsertItem(h,Nothing,"Item 2"),"Task",#1/3/2001#,#1/5/2001#)
.AddBar(.InsertItem(h,Nothing,"Item 3"),"Task",#1/4/2001#,#1/6/2001#)
.AddBar(.InsertItem(h,Nothing,"Item 4"),"Task",#1/2/2001#,#1/8/2001#)
.set_CellState(.get_ItemByIndex(1),0,1)
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
|
922
|
How can I show some grid lines or ruler in the histogram
Dim h
With Exg2antt1
With .Chart
.FirstVisibleDate = #1/1/2001#
.HistogramVisible = True
.HistogramHeight = 64
.set_PaneWidth(False,78)
.HistogramView = exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramNoGrouping Or exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramLeafItems Or exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramUnlockedItems Or exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramCheckedItems
With .Bars.Item("Task")
.HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
.HistogramItems = 6
.HistogramRulerLinesColor = Color.FromArgb(128,0,0)
.HistogramGridLinesColor = Color.FromArgb(255,0,0)
End With
End With
.Columns.Add("Column")
With .Items
h = .AddItem("Project 1")
.set_CellHasCheckBox(h,0,True)
.set_CellState(h,0,1)
.AddBar(.InsertItem(h,Nothing,"Item 1"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.InsertItem(h,Nothing,"Item 2"),"Task",#1/3/2001#,#1/5/2001#)
.set_ExpandItem(h,True)
End With
End With
|
|
921
|
Is there any property to show some grid lines in the histogram
Dim h
With Exg2antt1
With .Chart
.FirstVisibleDate = #1/1/2001#
.HistogramVisible = True
.HistogramHeight = 64
.set_PaneWidth(False,78)
.HistogramView = exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramNoGrouping Or exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramLeafItems Or exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramUnlockedItems Or exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramCheckedItems
With .Bars.Item("Task")
.HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
.HistogramItems = 6
.HistogramGridLinesColor = Color.FromArgb(255,0,0)
End With
End With
.Columns.Add("Column")
With .Items
h = .AddItem("Project 1")
.set_CellHasCheckBox(h,0,True)
.set_CellState(h,0,1)
.AddBar(.InsertItem(h,Nothing,"Item 1"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.InsertItem(h,Nothing,"Item 2"),"Task",#1/3/2001#,#1/5/2001#)
.set_ExpandItem(h,True)
End With
End With
|
|
920
|
How can I specify a fixed number of bars/items being shown in the histogram
Dim h
With Exg2antt1
With .Chart
.FirstVisibleDate = #1/1/2001#
.HistogramVisible = True
.HistogramHeight = 64
.set_PaneWidth(False,78)
.HistogramView = exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramNoGrouping Or exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramLeafItems Or exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramUnlockedItems Or exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramCheckedItems
With .Bars.Item("Task")
.HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
.HistogramCriticalValue = 3
.HistogramItems = -6
.HistogramRulerLinesColor = Color.FromArgb(1,0,0)
End With
End With
.Columns.Add("Column")
With .Items
h = .AddItem("Project 1")
.set_CellHasCheckBox(h,0,True)
.set_CellState(h,0,1)
.AddBar(.InsertItem(h,Nothing,"Item 1"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.InsertItem(h,Nothing,"Item 2"),"Task",#1/3/2001#,#1/5/2001#)
.set_ExpandItem(h,True)
h = .AddItem("Project 2")
.set_CellHasCheckBox(h,0,True)
.set_CellState(h,0,1)
.AddBar(.InsertItem(h,Nothing,"Item 1"),"Task",#1/4/2001#,#1/7/2001#)
.AddBar(.InsertItem(h,Nothing,"Item 2"),"Task",#1/6/2001#,#1/8/2001#)
.set_ExpandItem(h,True)
h = .AddItem("Project 3")
.set_CellHasCheckBox(h,0,True)
.set_CellState(h,0,1)
.AddBar(.InsertItem(h,Nothing,"Item 1"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.InsertItem(h,Nothing,"Item 2"),"Task",#1/3/2001#,#1/5/2001#)
.set_ExpandItem(h,True)
h = .AddItem("Project 4")
.set_CellHasCheckBox(h,0,True)
.set_CellState(h,0,1)
.AddBar(.InsertItem(h,Nothing,"Item 1"),"Task",#1/4/2001#,#1/7/2001#)
.AddBar(.InsertItem(h,Nothing,"Item 2"),"Task",#1/6/2001#,#1/8/2001#)
.set_ExpandItem(h,True)
End With
End With
|
|
919
|
Is there any option to specify a minimum number of bars/items displayed in the histogram
Dim h
With Exg2antt1
With .Chart
.FirstVisibleDate = #1/1/2001#
.HistogramVisible = True
.HistogramHeight = 64
.set_PaneWidth(False,78)
.HistogramView = exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramNoGrouping Or exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramLeafItems Or exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramUnlockedItems Or exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramCheckedItems
With .Bars.Item("Task")
.HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
.HistogramItems = 6
.HistogramGridLinesColor = Color.FromArgb(1,0,0)
.HistogramRulerLinesColor = Color.FromArgb(1,0,0)
End With
End With
.Columns.Add("Column")
With .Items
h = .AddItem("Project 1")
.set_CellHasCheckBox(h,0,True)
.set_CellState(h,0,1)
.AddBar(.InsertItem(h,Nothing,"Item 1"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.InsertItem(h,Nothing,"Item 2"),"Task",#1/3/2001#,#1/5/2001#)
.set_ExpandItem(h,True)
h = .AddItem("Project 2")
.set_CellHasCheckBox(h,0,True)
.set_CellState(h,0,1)
.AddBar(.InsertItem(h,Nothing,"Item 1"),"Task",#1/4/2001#,#1/7/2001#)
.AddBar(.InsertItem(h,Nothing,"Item 2"),"Task",#1/6/2001#,#1/8/2001#)
.set_ExpandItem(h,True)
End With
End With
|
|
918
|
How can I show the histogram without grouping the bars based on their parents
Dim h
With Exg2antt1
With .Chart
.FirstVisibleDate = #1/1/2001#
.HistogramVisible = True
.HistogramHeight = 32
.HistogramView = exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramNoGrouping Or exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramLeafItems Or exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramUnlockedItems Or exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramCheckedItems
.Bars.Item("Task").HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
End With
.Columns.Add("Column")
With .Items
h = .AddItem("Project 1")
.set_CellHasCheckBox(h,0,True)
.set_CellState(h,0,1)
.AddBar(.InsertItem(h,Nothing,"Item 1"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.InsertItem(h,Nothing,"Item 2"),"Task",#1/3/2001#,#1/5/2001#)
.set_ExpandItem(h,True)
h = .AddItem("Project 2")
.set_CellHasCheckBox(h,0,True)
.set_CellState(h,0,1)
.AddBar(.InsertItem(h,Nothing,"Item 1"),"Task",#1/4/2001#,#1/7/2001#)
.AddBar(.InsertItem(h,Nothing,"Item 2"),"Task",#1/6/2001#,#1/8/2001#)
.set_ExpandItem(h,True)
End With
End With
|
|
917
|
How can I show the histogram for checked item and all recursively child items
Dim h
With Exg2antt1
.BeginUpdate()
With .Chart
.set_PaneWidth(False,128)
.FirstVisibleDate = #1/1/2001#
.HistogramVisible = True
.HistogramHeight = 128
.HistogramView = exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramRecLeafItems Or exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramLeafItems Or exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramUnlockedItems Or exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramCheckedItems
.Bars.Item("Task").HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
End With
.Columns.Add("Column")
With .Items
h = .AddItem("Project")
.set_CellHasCheckBox(h,0,True)
.set_CellState(h,0,1)
.AddBar(.InsertItem(h,Nothing,"Item 1"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.InsertItem(h,Nothing,"Item 2"),"Task",#1/3/2001#,#1/5/2001#)
.set_ExpandItem(h,True)
h = .InsertItem(h,Nothing,"SubProject")
.AddBar(.InsertItem(h,Nothing,"Item 1"),"Task",#1/3/2001#,#1/7/2001#)
.AddBar(.InsertItem(h,Nothing,"Item 2"),"Task",#1/5/2001#,#1/8/2001#)
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
|
916
|
How can I show the histogram for checked item and its child items
Dim h
With Exg2antt1
With .Chart
.FirstVisibleDate = #1/1/2001#
.HistogramVisible = True
.HistogramHeight = 32
.HistogramView = exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramLeafItems Or exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramUnlockedItems Or exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramCheckedItems
.Bars.Item("Task").HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
End With
.Columns.Add("Column")
With .Items
h = .AddItem("Project")
.set_CellHasCheckBox(h,0,True)
.AddBar(.InsertItem(h,Nothing,"Item 1"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.InsertItem(h,Nothing,"Item 2"),"Task",#1/3/2001#,#1/7/2001#)
.set_ExpandItem(h,True)
End With
End With
|
|
915
|
How can I show the histogram for all items
With Exg2antt1
.BeginUpdate()
.SingleSel = False
With .Chart
.FirstVisibleDate = #1/1/2001#
.LevelCount = 2
.HistogramVisible = True
.HistogramHeight = 32
.HistogramView = exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramAllItems
.Bars.Item("Task").HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
End With
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.AddItem("Item 2"),"Task",#1/3/2001#,#1/7/2001#)
End With
.EndUpdate()
End With
|
|
914
|
How can I prevent selecting a new item when clicking the chart area so my selection is shown in the histogram
With Exg2antt1
.SingleSel = False
With .Chart
.SelectOnClick = False
.FirstVisibleDate = #1/1/2001#
.HistogramVisible = True
.HistogramHeight = 32
.HistogramView = exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramSelectedItems
.Bars.Item("Task").HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
End With
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.AddItem("Item 2"),"Task",#1/3/2001#,#1/7/2001#)
.set_SelectItem(.get_ItemByIndex(0),True)
End With
End With
|
|
913
|
How can I show bars in the histogram for selected items only
With Exg2antt1
.SingleSel = False
With .Chart
.FirstVisibleDate = #1/1/2001#
.HistogramVisible = True
.HistogramHeight = 32
.HistogramView = exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramSelectedItems
.Bars.Item("Task").HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
End With
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.AddItem("Item 2"),"Task",#1/3/2001#,#1/7/2001#)
.set_SelectItem(.get_ItemByIndex(0),True)
End With
End With
|
|
912
|
How can I change the color and size for the curve in the histogram
Dim h1
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.LevelCount = 2
.NonworkingDays = 0
.set_PaneWidth(False,64)
.FirstVisibleDate = #6/20/2005#
.HistogramVisible = True
.HistogramHeight = 68
With .Bars.Item("Task")
.HistogramPattern = &H100 Or exontrol.EXG2ANTTLib.PatternEnum.exPatternDot
.HistogramBorderColor = Color.FromArgb(0,255,0)
.HistogramBorderSize = 5
End With
End With
With .Items
h1 = .AddItem("Task")
.AddBar(h1,"Task",#6/21/2005#,#6/25/2005#,1,1)
.AddBar(h1,"Task",#6/23/2005#,#6/28/2005#,2,2)
End With
.EndUpdate()
End With
|
|
911
|
How can I change the color for the frame in the histogram
Dim h1
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.LevelCount = 2
.NonworkingDays = 0
.set_PaneWidth(False,64)
.FirstVisibleDate = #6/20/2005#
.HistogramVisible = True
.HistogramHeight = 68
With .Bars.Item("Task")
.HistogramPattern = &H100 Or exontrol.EXG2ANTTLib.PatternEnum.exPatternShadow
.HistogramItems = 5
.HistogramBorderColor = Color.FromArgb(255,0,0)
End With
End With
With .Items
h1 = .AddItem("Task")
.AddBar(h1,"Task",#6/21/2005#,#6/25/2005#,1,1)
.AddBar(h1,"Task",#6/23/2005#,#6/28/2005#,2,2)
End With
.EndUpdate()
End With
|
|
910
|
How can I force the histogram for a bar being shown all the time
Dim h1
With Exg2antt1
.BeginUpdate()
.ScrollBySingleLine = True
.Columns.Add("Tasks").set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,True)
With .Chart
.LevelCount = 2
.NonworkingDays = 0
.set_PaneWidth(False,64)
.FirstVisibleDate = #6/20/2005#
.HistogramVisible = True
.HistogramHeight = 68
.HistogramView = exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramUnlockedItems Or exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramCheckedItems
With .Bars.Copy("Task","H")
.Color = Color.FromArgb(0,255,0)
.HistogramPattern = &H100
.HistogramItems = 5
.HistogramColor = .Color
.HistogramGridLinesColor = Color.FromArgb(128,128,128)
.HistogramRulerLinesColor = Color.FromArgb(0,0,1)
End With
With .Bars.Item("Task")
.HistogramCriticalColor = Color.FromArgb(0,0,128)
.HistogramPattern = .Pattern
.HistogramItems = 5
.HistogramGridLinesColor = Color.FromArgb(128,128,128)
.HistogramRulerLinesColor = Color.FromArgb(0,0,1)
End With
End With
With .Items
h1 = .AddItem("Hidden")
.AddBar(h1,"H",#6/23/2005#,#6/28/2005#,1)
.AddBar(h1,"H",#6/24/2005#,#6/26/2005#,2)
.set_CellState(h1,0,1)
.set_ItemHeight(h1,0)
.set_SelectableItem(h1,False)
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#6/21/2005#,#6/25/2005#,1)
.set_CellState(h1,0,1)
h1 = .AddItem("Task 2")
.set_CellState(h1,0,1)
.AddBar(h1,"Task",#6/24/2005#,#7/1/2005#,1)
End With
.EndUpdate()
End With
|
|
909
|
How can I remove a bar type from the histogram
Dim h1
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.LevelCount = 2
.NonworkingDays = 0
.set_PaneWidth(False,40)
.FirstVisibleDate = #6/20/2005#
.HistogramVisible = True
.HistogramHeight = 32
With .Bars.Item("Task")
.HistogramCriticalColor = Color.FromArgb(0,0,128)
.HistogramPattern = .Pattern
End With
With .Bars.Copy("Task","Green")
.Color = Color.FromArgb(0,255,0)
.HistogramPattern = .Pattern
End With
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Green",#6/22/2005#,#6/26/2005#,0)
.AddBar(h1,"Task",#6/21/2005#,#6/25/2005#,1)
.set_ItemBar(h1,1,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarOffset,3)
h1 = .AddItem("Task 2")
.AddBar(h1,"Green",#6/28/2005#,#6/30/2005#,0)
.AddBar(h1,"Task",#6/27/2005#,#7/1/2005#,1)
.set_ItemBar(h1,1,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarOffset,3)
End With
With .Chart.Bars.Item("Green")
.HistogramColor = .Color
.HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternEmpty
End With
.EndUpdate()
End With
|
|
908
|
How can I show the two buttons in the vertical splitter but still resizes the chart when the control gets resized
With Exg2antt1
.OnResizeControl = exontrol.EXG2ANTTLib.OnResizeControlEnum.exSplitterShowButtons Or exontrol.EXG2ANTTLib.OnResizeControlEnum.exResizeChart
.Chart.set_PaneWidth(False,96)
.Chart.LevelCount = 2
End With
|
|
907
|
I have seen a screen shot on your web page that shows two buttons on the vertical scroll bar. How can I show them
With Exg2antt1
.OnResizeControl = exontrol.EXG2ANTTLib.OnResizeControlEnum.exSplitterShowButtons
.Chart.set_PaneWidth(False,96)
End With
|
|
906
|
How can I disable selecting a new item once the user clicks the chart area
Dim h1
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
.SingleSel = False
With .Chart
.SelectOnClick = False
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
.LevelCount = 2
.set_PaneWidth(False,40)
.FirstVisibleDate = #6/20/2005#
.HistogramVisible = True
.HistogramHeight = 32
.HistogramView = exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramSelectedItems
.Bars.Item("Task").HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternSolid
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#6/22/2005#,#6/26/2005#,0)
.set_SelectItem(h1,True)
h1 = .AddItem("Task 2")
.AddBar(h1,"Task",#6/24/2005#,#6/30/2005#,0)
.set_SelectItem(h1,True)
End With
.EndUpdate()
End With
|
|
905
|
Is there any option to display the chart's header in the bottom side of the histogram
Dim h1
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.LevelCount = 2
.NonworkingDays = 0
.set_PaneWidth(False,40)
.FirstVisibleDate = #6/20/2005#
.HistogramVisible = True
.HistogramView = exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramAllItems
.HistogramHeight = 96
.HistogramHeaderVisible = True
With .Bars.Item("Task")
.Color = Color.FromArgb(0,0,255)
.OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsOffset
.OverlaidGroup = "Task2"
.HistogramCriticalColor = Color.FromArgb(0,0,128)
.HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exBezierCurve
.HistogramType = exontrol.EXG2ANTTLib.HistogramTypeEnum.exHistOverAllocation
End With
With .Bars.Copy("Task","Task2")
.Color = Color.FromArgb(0,255,0)
.OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsOffset
.OverlaidGroup = "Task"
.HistogramCriticalColor = Color.FromArgb(0,128,0)
.HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exBezierCurve
.HistogramType = exontrol.EXG2ANTTLib.HistogramTypeEnum.exHistOverAllocation
End With
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task2",#6/22/2005#,#6/26/2005#,0)
.AddBar(h1,"Task",#6/21/2005#,#6/25/2005#,1)
.set_ItemBar(h1,0,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort,3)
.set_ItemBar(h1,1,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort,4)
h1 = .AddItem("Task 2")
.AddBar(h1,"Task2",#6/28/2005#,#6/30/2005#,0)
.AddBar(h1,"Task",#6/27/2005#,#7/1/2005#,1)
.set_ItemBar(h1,0,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort,4)
.set_ItemBar(h1,1,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort,1)
End With
.EndUpdate()
End With
|
|
904
|
How can I display the child bars as soon as an item gets collapsed
Dim h,h1,h2,h3
With Exg2antt1
.BeginUpdate()
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("Tasks")
With .Chart
.FirstVisibleDate = #9/20/2006#
.ShowCollapsedBars = True
.LevelCount = 2
.set_PaneWidth(False,96)
End With
With .Items
h = .AddItem("Project 1")
h1 = .InsertItem(h,Nothing,"Task 1")
.AddBar(h1,"Task",#9/21/2006#,#9/23/2006#,"A")
h2 = .InsertItem(h,Nothing,"Task 2")
.AddBar(h2,"Task",#9/24/2006#,#9/26/2006#,"B")
h3 = .InsertItem(h,Nothing,"Task 3")
.AddBar(h3,"Task",#9/27/2006#,#9/29/2006#,"C")
h = .AddItem("Project 2")
h1 = .InsertItem(h,Nothing,"Task 1")
.AddBar(h1,"Task",#9/21/2006#,#9/23/2006#,"A")
h2 = .InsertItem(h,Nothing,"Task 2")
.AddBar(h2,"Task",#9/24/2006#,#9/26/2006#,"B")
h3 = .InsertItem(h,Nothing,"Task 3")
.AddBar(h3,"Task",#9/27/2006#,#9/29/2006#,"C")
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
|
903
|
What exBarEffort property represents
Dim h1
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.LevelCount = 2
.set_PaneWidth(False,40)
.FirstVisibleDate = #6/9/2005#
.HistogramVisible = True
.HistogramView = exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramAllItems
.HistogramHeight = 164
With .Bars.Item("Task")
.HistogramPattern = &H100
.HistogramType = exontrol.EXG2ANTTLib.HistogramTypeEnum.exHistOverAllocation
End With
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#6/10/2005#,#6/11/2005#,Nothing,"1/1=<b>100%")
.set_ItemBar(h1,Nothing,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,18)
h1 = .AddItem("Task 2")
.AddBar(h1,"Task",#6/12/2005#,#6/14/2005#,Nothing,"1/2=<b>50%")
.set_ItemBar(h1,Nothing,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,18)
h1 = .AddItem("Task 3")
.AddBar(h1,"Task",#6/15/2005#,#6/18/2005#,Nothing,"1/3=<b>33%")
.set_ItemBar(h1,Nothing,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,18)
h1 = .AddItem("Task 4")
.AddBar(h1,"Task",#6/19/2005#,#6/23/2005#,Nothing,"1/4=<b>25%")
.set_ItemBar(h1,Nothing,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,18)
h1 = .AddItem("Task 5")
.AddBar(h1,"Task",#6/24/2005#,#6/29/2005#,Nothing,"1/5=<b>20%")
.set_ItemBar(h1,Nothing,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,18)
End With
.EndUpdate()
End With
|
|
902
|
Can I display multiple curves in the histogram
Dim h1
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.LevelCount = 2
.NonworkingDays = 0
.set_PaneWidth(False,40)
.FirstVisibleDate = #6/20/2005#
.HistogramVisible = True
.HistogramView = exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramAllItems
.HistogramHeight = 64
With .Bars.Item("Task")
.Color = Color.FromArgb(0,0,255)
.OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsOffset
.OverlaidGroup = "Task2"
.HistogramCriticalColor = Color.FromArgb(0,0,128)
.HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exBezierCurve
.HistogramType = exontrol.EXG2ANTTLib.HistogramTypeEnum.exHistOverAllocation
End With
With .Bars.Copy("Task","Task2")
.Color = Color.FromArgb(0,255,0)
.OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsOffset
.OverlaidGroup = "Task"
.HistogramCriticalColor = Color.FromArgb(0,128,0)
.HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exBezierCurve
.HistogramType = exontrol.EXG2ANTTLib.HistogramTypeEnum.exHistOverAllocation
End With
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task2",#6/22/2005#,#6/26/2005#,0)
.AddBar(h1,"Task",#6/21/2005#,#6/25/2005#,1)
.set_ItemBar(h1,0,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort,3)
.set_ItemBar(h1,1,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort,4)
h1 = .AddItem("Task 2")
.AddBar(h1,"Task2",#6/28/2005#,#6/30/2005#,0)
.AddBar(h1,"Task",#6/27/2005#,#7/1/2005#,1)
.set_ItemBar(h1,0,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort,4)
.set_ItemBar(h1,1,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort,1)
End With
.EndUpdate()
End With
|
|
901
|
How can I use the exBarEffort property
Dim h1
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.LevelCount = 2
.NonworkingDays = 0
.set_PaneWidth(False,40)
.FirstVisibleDate = #6/20/2005#
.HistogramVisible = True
.HistogramHeight = 64
.HistogramView = exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramAllItems
With .Bars.Item("Task")
.HistogramCriticalColor = Color.FromArgb(255,0,0)
.HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exBezierCurve
.HistogramType = exontrol.EXG2ANTTLib.HistogramTypeEnum.exHistOverAllocation
End With
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#6/21/2005#,#6/25/2005#)
.set_ItemBar(h1,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort,4)
h1 = .AddItem("Task 2")
.AddBar(h1,"Task",#6/27/2005#,#7/1/2005#)
.set_ItemBar(h1,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort,1)
End With
.EndUpdate()
End With
|